home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / wildstar / wild.s < prev    next >
Text File  |  1980-01-03  |  384b  |  20 lines
  1.  
  2. rnf_wildstar    =    $34
  3.  
  4.         include    gst:os3_gst.i
  5.  
  6. WildPatch:    move.l    4.w,a6            ;get execbase
  7.         lea    DosName(pc),a1
  8.         move.l    LibList(a6),a0
  9.         jsr    _LVOFindName(a6)    ;hopefully get the DOS.. (!)
  10.         move.l    d0,a6            ;base in a *naughty* way..
  11.  
  12.         move.l    dl_Root(a6),a3
  13.         bchg    #0,rnf_wildstar(a3)    ;Toggle Critical Bit...
  14.  
  15.         moveq    #0,d0            ;no return code...
  16.         rts
  17.  
  18. DosName        dc.b    'dos.library',0
  19.         even
  20.